Chip 2000 October/CHIP Turkiye Ekim 2000.iso/prog/demo/MATH/_SETUP.1/Abt_math.exe/0/RCDATA/TCARDM/TCARDM.txt

Text File | 2000-07-28 | 12.3 KB | 531 lines

object CarDM: TCarDM
  OldCreateOrder = False
  Left = 257
  Top = 70
  Height = 195
  Width = 599
  object CrkSource: TDataSource
    DataSet = crktable
    OnDataChange = CrkSourceDataChange
    Left = 12
    Top = 76
  end
  object CrhSource: TDataSource
    DataSet = crhtable
    Left = 66
    Top = 76
  end
  object tbl_fistip: TTable
    TableName = 'carfstip.DB'
    Left = 111
    Top = 24
    object tbl_fistipFistip: TStringField
      FieldName = 'Fistip'
      Size = 4
    end
    object tbl_fistipAcikla: TStringField
      FieldName = 'Acikla'
    end
  end
  object crhtable: TOATable
    MasterFields = 'CarNo'
    MasterSource = CrkSource
    TableName = 'CARIHAR.DB'
    Left = 66
    Top = 24
    object crhtableCrNo: TStringField
      FieldName = 'CrNo'
      Size = 10
    end
    object crhtableCrhTar: TDateField
      FieldName = 'CrhTar'
    end
    object crhtableCrVTar: TDateField
      FieldName = 'CrVTar'
    end
    object crhtableCrFTip: TStringField
      FieldName = 'CrFTip'
      Size = 1
    end
    object crhtableCrFNo: TStringField
      FieldName = 'CrFNo'
      Size = 12
    end
    object crhtableCrFSr: TSmallintField
      FieldName = 'CrFSr'
    end
    object crhtableCrBA: TStringField
      FieldName = 'CrBA'
      Size = 1
    end
    object crhtableDvKod: TStringField
      FieldName = 'DvKod'
      Size = 3
    end
    object crhtableAcikla: TStringField
      FieldName = 'Acikla'
      Size = 40
    end
    object crhtableTutar: TFloatField
      FieldName = 'Tutar'
      DisplayFormat = '#,##0.00'
    end
    object crhtableMuhFisTr: TDateField
      FieldName = 'MuhFisTr'
    end
    object crhtableMuhFisNo: TIntegerField
      FieldName = 'MuhFisNo'
    end
    object crhtableMuhFisSr: TStringField
      FieldName = 'MuhFisSr'
      Size = 1
    end
    object crhtablefistip: TStringField
      FieldKind = fkLookup
      FieldName = 'fistip'
      LookupDataSet = tbl_fistip
      LookupKeyFields = 'Fistip'
      LookupResultField = 'Acikla'
      KeyFields = 'CrFTip'
      Size = 30
      Lookup = True
    end
  end
  object crktable: TOATable
    BeforePost = CrkTableBeforePost
    OnCalcFields = CrkTableCalcFields
    TableName = 'CARI.DB'
    Left = 12
    Top = 24
    object crktableCarNo: TStringField
      FieldName = 'CarNo'
      Size = 10
    end
    object crktableCUnvan: TStringField
      FieldName = 'CUnvan'
      Size = 40
    end
    object crktableCGrup: TStringField
      FieldName = 'CGrup'
      Size = 4
    end
    object crktableSatMus: TBooleanField
      FieldName = 'SatMus'
    end
    object crktableCAdres: TStringField
      FieldName = 'CAdres'
      Size = 186
    end
    object crktableCAdr1: TStringField
      FieldName = 'CAdr1'
      Size = 30
    end
    object crktableCAdr2: TStringField
      FieldName = 'CAdr2'
      Size = 30
    end
    object crktableilce: TStringField
      FieldName = 'ilce'
      Size = 15
    end
    object crktableil: TStringField
      FieldName = 'il'
      Size = 15
    end
    object crktablePKod: TStringField
      FieldName = 'PKod'
      Size = 6
    end
    object crktableTel1: TStringField
      FieldName = 'Tel1'
    end
    object crktableTel2: TStringField
      FieldName = 'Tel2'
    end
    object crktableFax: TStringField
      FieldName = 'Fax'
    end
    object crktableModem: TStringField
      FieldName = 'Modem'
      Size = 64
    end
    object crktableVDa: TStringField
      FieldName = 'VDa'
      Size = 15
    end
    object crktableVNo: TStringField
      FieldName = 'VNo'
      Size = 15
    end
    object crktableCTicNo: TStringField
      FieldName = 'CTicNo'
      Size = 12
    end
    object crktableCIsk: TFloatField
      FieldName = 'CIsk'
    end
    object crktableCVFar: TFloatField
      FieldName = 'CVFar'
    end
    object crktableCVMuaf: TFloatField
      FieldName = 'CVMuaf'
    end
    object crktableCUyFiat: TStringField
      FieldName = 'CUyFiat'
      Size = 1
    end
    object crktableCAidat: TFloatField
      FieldName = 'CAidat'
    end
    object crktableCAidatDv: TStringField
      FieldName = 'CAidatDv'
      Size = 3
    end
    object crktableCOdGun: TStringField
      FieldName = 'COdGun'
      Size = 1
    end
    object crktableCVerTem1: TFloatField
      FieldName = 'CVerTem1'
    end
    object crktableCVerDv1: TStringField
      FieldName = 'CVerDv1'
      Size = 3
    end
    object crktableCTemTur1: TStringField
      FieldName = 'CTemTur1'
    end
    object crktableCVerTem2: TFloatField
      FieldName = 'CVerTem2'
    end
    object crktableCVerDv2: TStringField
      FieldName = 'CVerDv2'
      Size = 3
    end
    object crktableCTemTur2: TStringField
      FieldName = 'CTemTur2'
    end
    object crktableCRiskLim: TFloatField
      FieldName = 'CRiskLim'
    end
    object crktableCRiskDv: TStringField
      FieldName = 'CRiskDv'
      Size = 3
    end
    object crktableCCarpan: TFloatField
      FieldName = 'CCarpan'
    end
    object crktableCSCarpan: TFloatField
      FieldName = 'CSCarpan'
    end
    object crktableCOAd1: TStringField
      FieldName = 'COAd1'
    end
    object crktableCOAd2: TStringField
      FieldName = 'COAd2'
    end
    object crktableCOAd3: TStringField
      FieldName = 'COAd3'
    end
    object crktableCOTar1: TStringField
      FieldName = 'COTar1'
      Size = 10
    end
    object crktableCOTar2: TStringField
      FieldName = 'COTar2'
      Size = 10
    end
    object crktableCOTar3: TStringField
      FieldName = 'COTar3'
      Size = 10
    end
    object crktableCOAc1: TStringField
      FieldName = 'COAc1'
      Size = 30
    end
    object crktableCOAc2: TStringField
      FieldName = 'COAc2'
      Size = 30
    end
    object crktableCOAc3: TStringField
      FieldName = 'COAc3'
      Size = 30
    end
    object crktableCYazTan1: TStringField
      FieldName = 'CYazTan1'
    end
    object crktableCYazTan2: TStringField
      FieldName = 'CYazTan2'
    end
    object crktableCYazTan3: TStringField
      FieldName = 'CYazTan3'
    end
    object crktableCYazTan4: TStringField
      FieldName = 'CYazTan4'
    end
    object crktableCSayTan1: TFloatField
      FieldName = 'CSayTan1'
    end
    object crktableCSayTan2: TFloatField
      FieldName = 'CSayTan2'
    end
    object crktableCSayTan3: TFloatField
      FieldName = 'CSayTan3'
    end
    object crktableCSayTan4: TFloatField
      FieldName = 'CSayTan4'
    end
    object crktableCSayDv1: TStringField
      FieldName = 'CSayDv1'
      Size = 3
    end
    object crktableCSayDv2: TStringField
      FieldName = 'CSayDv2'
      Size = 3
    end
    object crktableCSayDv3: TStringField
      FieldName = 'CSayDv3'
      Size = 3
    end
    object crktableCSayDv4: TStringField
      FieldName = 'CSayDv4'
      Size = 3
    end
    object crktableTopBrc: TFloatField
      FieldName = 'TopBrc'
      DisplayFormat = '#,##0.00'
    end
    object crktableTopAlc: TFloatField
      FieldName = 'TopAlc'
      DisplayFormat = '#,##0.00'
    end
    object crktableKrsCek: TFloatField
      FieldName = 'KrsCek'
    end
    object crktableKrsSnt: TFloatField
      FieldName = 'KrsSnt'
    end
    object crktableMuhKod: TStringField
      FieldName = 'MuhKod'
      Size = 43
    end
    object crktableMuhAd: TStringField
      FieldName = 'MuhAd'
      Size = 50
    end
    object crktableAltisk: TFloatField
      FieldName = 'Altisk'
    end
    object crktableAltsinir: TFloatField
      FieldName = 'Altsinir'
    end
    object crktableArtoran: TFloatField
      FieldName = 'Artoran'
    end
    object crktableBakiye: TFloatField
      FieldKind = fkCalculated
      FieldName = 'Bakiye'
      DisplayFormat = '#,##0.00'
      Calculated = True
    end
    object crktableH: TStringField
      FieldKind = fkLookup
      FieldName = 'H'
      LookupDataSet = Carnot
      LookupKeyFields = 'car'
      LookupResultField = 'hat'
      KeyFields = 'CarNo'
      Size = 1
      Lookup = True
    end
  end
  object oplananatable: TTable
    TableName = 'oplanana'
    Left = 220
    Top = 24
    object oplananatableno: TIntegerField
      FieldName = 'no'
    end
    object oplananatableoplanadi: TStringField
      DisplayWidth = 50
      FieldName = 'oplanadi'
      Size = 50
    end
    object oplananatableiskonto: TFloatField
      DefaultExpression = '0'
      FieldName = 'iskonto'
      MaxValue = 99.000000000000000000
    end
    object oplananatablevadefark: TFloatField
      DefaultExpression = '0'
      FieldName = 'vadefark'
    end
  end
  object oplantable: TTable
    MasterFields = 'no'
    MasterSource = oplananasource
    TableName = 'oplan'
    Left = 291
    Top = 24
    object oplantableplanno: TIntegerField
      FieldName = 'planno'
    end
    object oplantablesira: TIntegerField
      FieldName = 'sira'
    end
    object oplantablegun: TIntegerField
      FieldName = 'gun'
    end
    object oplantableoran: TFloatField
      FieldName = 'oran'
    end
  end
  object oplananasource: TDataSource
    DataSet = oplananatable
    Left = 220
    Top = 76
  end
  object oplansource: TDataSource
    DataSet = oplantable
    Left = 291
    Top = 76
  end
  object DataSource1: TDataSource
    DataSet = Carnot
    Left = 149
    Top = 76
  end
  object Carnot: TTable
    Left = 149
    Top = 24
    object Carnotcar: TStringField
      FieldName = 'car'
      Size = 10
    end
    object Carnotnot: TStringField
      FieldName = 'not'
      Size = 80
    end
    object Carnothat: TStringField
      FieldName = 'hat'
      Size = 1
    end
  end
  object taksit_source: TDataSource
    DataSet = Taksittable
    Left = 450
    Top = 76
  end
  object Taksitode_source: TDataSource
    DataSet = TaksitodeTable
    Left = 526
    Top = 76
  end
  object taksitkonutable: TTable
    MasterFields = 'carno'
    MasterSource = CrkSource
    TableName = 'taksitkn.DB'
    Left = 369
    Top = 24
    object taksitkonutableCarino: TStringField
      FieldName = 'Carino'
      Size = 10
    end
    object taksitkonutableTaksitno: TIntegerField
      FieldName = 'Taksitno'
    end
    object taksitkonutableAciklama: TStringField
      FieldName = 'Aciklama'
      Size = 50
    end
    object taksitkonutableTutar: TFloatField
      FieldName = 'Tutar'
      DisplayFormat = '#,##0.00'
    end
    object taksitkonutableilkvade: TDateField
      FieldName = 'ilkvade'
    end
    object taksitkonutablevadefarkoran: TFloatField
      FieldName = 'vadefarkoran'
    end
    object taksitkonutabletaksitsayisi: TIntegerField
      FieldName = 'taksitsayisi'
    end
    object taksitkonutabletoplamtutar: TFloatField
      FieldName = 'toplamtutar'
      DisplayFormat = '#,##0.00'
    end
    object taksitkonutableiskonto: TStringField
      FieldName = 'iskonto'
    end
    object taksitkonutableodemead: TStringField
      FieldName = 'odemead'
      Size = 50
    end
  end
  object taksitkonu_source: TDataSource
    DataSet = taksitkonutable
    Left = 369
    Top = 76
  end
  object Taksittable: TTable
    MasterFields = 'carino;taksitno'
    MasterSource = taksitkonu_source
    TableName = 'taksit.db'
    Left = 448
    Top = 24
    object TaksittableCarino: TStringField
      FieldName = 'Carino'
      Size = 10
    end
    object TaksittableTaksitno: TIntegerField
      FieldName = 'Taksitno'
    end
    object Taksittablesira: TIntegerField
      FieldName = 'sira'
    end
    object Taksittablevadetarihi: TDateField
      FieldName = 'vadetarihi'
    end
    object TaksittableTutar: TFloatField
      FieldName = 'Tutar'
      DisplayFormat = '#,##0.00'
    end
    object TaksittableAciklama: TStringField
      FieldName = 'Aciklama'
      Size = 50
    end
  end
  object TaksitodeTable: TTable
    MasterFields = 'carino;taksitno;sira'
    MasterSource = taksit_source
    TableName = 'taksitode.DB'
    Left = 528
    Top = 24
    object TaksitodeTableCarino: TStringField
      FieldName = 'Carino'
      Size = 10
    end
    object TaksitodeTabletaksitno: TIntegerField
      FieldName = 'taksitno'
    end
    object TaksitodeTabletaksitsira: TIntegerField
      FieldName = 'taksitsira'
    end
    object TaksitodeTableodemesira: TIntegerField
      FieldName = 'odemesira'
    end
    object TaksitodeTabletutar: TFloatField
      FieldName = 'tutar'
      DisplayFormat = '#,##0.00'
    end
    object TaksitodeTableaciklama: TStringField
      FieldName = 'aciklama'
      Size = 40
    end
    object TaksitodeTableodemetarih: TDateField
      FieldName = 'odemetarih'
    end
  end
end